Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/loanapp/loanf6.frm

Text File | 1995-05-07 | 8KB | 271 lines

VERSION 2.00
Begin Form Form6
   BackColor       =   &H00808080&
   ClientHeight    =   2655
   ClientLeft      =   315
   ClientTop       =   1515
   ClientWidth     =   8880
   ControlBox      =   0   'False
   Height          =   3060
   Left            =   255
   LinkMode        =   1  'Source
   LinkTopic       =   "Form6"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2655
   ScaleWidth      =   8880
   Top             =   1170
   Width           =   9000
   Begin CommandButton Command3
      Caption         =   "Cancel"
      Height          =   300
      Left            =   4995
      TabIndex        =   17
      Top             =   2160
      Width           =   3000
   End
   Begin CommandButton Command1
      Caption         =   "Ok"
      Height          =   300
      Left            =   885
      TabIndex        =   16
      Top             =   2160
      Width           =   3000
   End
   Begin PictureBox Picture5
      Height          =   900
      Left            =   5100
      ScaleHeight     =   870
      ScaleWidth      =   3705
      TabIndex        =   4
      Top             =   1035
      Width           =   3735
      Begin PictureBox BEditF6
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   9.75
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   495
         Index           =   5
         Left            =   1050
         ScaleHeight     =   465
         ScaleWidth      =   2160
         TabIndex        =   11
         Top             =   330
         Width           =   2190
      End
      Begin Label Label6
         Caption         =   "Cost:"
         Height          =   225
         Left            =   330
         TabIndex        =   10
         Top             =   555
         Width           =   465
      End
      Begin Label Label9
         Caption         =   "$"
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   12
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   300
         Left            =   885
         TabIndex        =   20
         Top             =   495
         Width           =   180
      End
      Begin Label Label5
         Caption         =   "Improvement(s):"
         Height          =   240
         Left            =   30
         TabIndex        =   9
         Top             =   45
         Width           =   1440
      End
   End
   Begin PictureBox Picture4
      Height          =   900
      Left            =   15
      ScaleHeight     =   870
      ScaleWidth      =   4950
      TabIndex        =   3
      Top             =   1035
      Width           =   4980
      Begin PictureBox BEditF6
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   9.75
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   495
         Index           =   4
         Left            =   45
         ScaleHeight     =   465
         ScaleWidth      =   4830
         TabIndex        =   15
         Top             =   330
         Width           =   4860
      End
      Begin Label Label4
         Caption         =   "Purpose of Refinance:"
         Height          =   225
         Left            =   45
         TabIndex        =   8
         Top             =   45
         Width           =   1980
      End
   End
   Begin PictureBox Picture3
      Height          =   900
      Left            =   5460
      ScaleHeight     =   870
      ScaleWidth      =   3345
      TabIndex        =   2
      Top             =   60
      Width           =   3375
      Begin PictureBox BEditF6
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   9.75
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   495
         Index           =   3
         Left            =   285
         ScaleHeight     =   465
         ScaleWidth      =   2925
         TabIndex        =   14
         Top             =   330
         Width           =   2955
      End
      Begin Label Label8
         Caption         =   "$"
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   12
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   285
         Left            =   120
         TabIndex        =   19
         Top             =   495
         Width           =   180
      End
      Begin Label Label3
         Caption         =   "Amount of Existing Leins:"
         Height          =   225
         Left            =   45
         TabIndex        =   7
         Top             =   45
         Width           =   2220
      End
   End
   Begin PictureBox Picture2
      Height          =   900
      Left            =   2010
      ScaleHeight     =   870
      ScaleWidth      =   3345
      TabIndex        =   1
      Top             =   60
      Width           =   3375
      Begin PictureBox BEditF6
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   9.75
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   495
         Index           =   2
         Left            =   255
         ScaleHeight     =   465
         ScaleWidth      =   2925
         TabIndex        =   13
         Top             =   330
         Width           =   2955
      End
      Begin Label Label7
         Caption         =   "$"
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   12
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   300
         Left            =   120
         TabIndex        =   18
         Top             =   495
         Width           =   165
      End
      Begin Label Label2
         Caption         =   "Original Cost:"
         Height          =   225
         Left            =   45
         TabIndex        =   6
         Top             =   45
         Width           =   1215
      End
   End
   Begin PictureBox Picture1
      Height          =   900
      Left            =   30
      ScaleHeight     =   870
      ScaleWidth      =   1875
      TabIndex        =   0
      Top             =   60
      Width           =   1905
      Begin PictureBox BEditF6
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   9.75
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   495
         Index           =   1
         Left            =   45
         ScaleHeight     =   465
         ScaleWidth      =   1755
         TabIndex        =   12
         Top             =   330
         Width           =   1785
      End
      Begin Label Label1
         Caption         =   "Year Acquired:"
         Height          =   225
         Left            =   45
         TabIndex        =   5
         Top             =   45
         Width           =   1380
      End
   End
End

Sub Command1_Click ()
    MainRec.E.E1 = Form6.BEditF6(1).Text
    MainRec.E.E2 = Form6.BEditF6(2).Text
    MainRec.E.E3 = Form6.BEditF6(3).T